home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / jingbell.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.2 KB  |  49 lines
  1. 1000  DEF SEG: POKE 106,0
  2. 1010  CLS
  3. 1015  CMD$=INKEY$
  4. 1016  IF CMD$=CHR$(27) GOTO 1070
  5. 1020  GOSUB 1090
  6. 1025  CMD$=INKEYS$
  7. 1026  IF CMD$=CHR$(27) GOTO 1070
  8. 1030  GOSUB 1270
  9. 1040  GOSUB 1350
  10. 1045  CMD$=INKEY$
  11. 1046  IF CMD$=CHR$(27) GOTO 1070
  12. 1050  GOSUB 1270
  13. 1060  GOSUB 1390
  14. 1070  END
  15. 1080  STOP
  16. 1090  PRINT".........DASHING THRO THE SNOW. ON A "
  17. 1100  PLAY "MFL8MNO3CAGFL4CP8L16CC"
  18. 1110  PRINT".........ONE HORSE OPEN SLEIGH, "
  19. 1120  PLAY "MFL8MNO3CAGFL4D.P8"
  20. 1130  PRINT".........O'ER THE FIELD WE GO,"
  21. 1140  PLAY "MFMNL8DB-AGL4E.P8"
  22. 1150  PRINT".........LAUGH-ING ALL THE WAY;"
  23. 1160  PLAY "MFL8MNO4CCO3B-GL4A.P8"
  24. 1170  PRINT".........BELLS ON BOB-TAIL RING."
  25. 1180  PLAY "MFMNL8O3CAGFL4C.P8"
  26. 1190  PRINT".........MAKING SPIR-ITS BRIGHT; WHAT"
  27. 1200  PLAY "MFMNL8O3CAGFL4DP8L8D"
  28. 1210  PRINT".........FUN IT IS TO RIDE AND SING A"
  29. 1220  PLAY "MFMNL8O3DB-AGO4CCCC"
  30. 1230  PRINT".........SLEIGH-ING SONG TO-NIGHT!"
  31. 1240  PLAY "MFMNL8O4DCO3B-GL4F.P4"
  32. 1250  RETURN
  33. 1260  REM THIS IS THE RETRAIN
  34. 1270  PRINT".........JINGLE BELLS! JINGLE BELLS!"
  35. 1280  PLAY "MFMSL8O3AAL4AL8AAL4A"
  36. 1290  PRINT".........JINGLE ALL THE WAY!"
  37. 1300  PLAY "MFMSL8O3AO4CO3F.L16GL4AP4"
  38. 1310  PRINT".........OH! WHAT FUN IT IS TO RIDE IN A"
  39. 1320  PLAY "MFMSL8O3B-B-B-.L16B-L8B-AAL16AA"
  40. 1330  RETURN
  41. 1340  REM THIS IS THE SECOND REFRAIN
  42. 1350  PRINT".........ONE-HORSE O-PEN SLEIGH!"
  43. 1360  PLAY "MFMSL8O3AGGAGL4O4C."
  44. 1370  RETURN
  45. 1380  REM THIS IS THE THIRD REFRAIN
  46. 1390  PRINT".........ONE-HORSE O-PEN SLEIGH!"
  47. 1400  PLAY"MFMSL8O4CCO3B-GL2F"
  48. 1410  RETURN
  49.